home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Lang / Yax / fac.yax next >
Encoding:
Text File  |  1980-06-15  |  109 b   |  3 lines
  1. (defun fac (n) (if (eq n 1) 1 (* (fac (sub n 1)) n)))
  2. (write 'Calcule le factorielle de : ' (fac (readint)))
  3.